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Prólogo 


Los juegos presentados en este libro utilizan funciones pro- 
pias de los microordenadores MSX: sonido, color, gráficos ani- 
mados, etc. Por dicho motivo, estos programas sólo sirven 
para aparatos de este standard y difícilmente pueden adaptar- 
se a otros productos. 

Aparte del propio juego, el estudio de estos programas le 
va a enseñar numerosas técnicas de programación que le 
serán muy útiles para desarrollar sus propios programas. 
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NOTAS CONCERNIENTES A LOS PROGRAMAS 


Los programas han de ser tecleados tal como se reprodu- 
cen en casette o en diskette al objeto de evitar tener que vol- 
ver a teclearlos cada vez que se utilizan. Para ello emplee la 
instrucción 


C SAVE “<nombre> ” 


sustituyendo nombre por el nombre del programa a grabar. 
Ejemplo: Para grabar el programa BOMBARDEO AEREO, 
pulsar 


C SAVE “BOMBARDEO AEREO” 


y apretar la tecla ENTER una vez apretadas las teclas PLAY y 
RECORD del magnetófono. Para recargar un programa hay que 
rebobinar la casette hasta el inicio del programa y pulsar 
CLOAD “<nombre>”. Por ejemplo, si quiere recargar el pro- 
grama BOMBARDEO AEREO, hay que pulsar 


CLOAD “BOMBARDEO AEREO” 


y apretar la tecla ENTER. 

Al objeto de reducir los errores al máximo, los listados de 
los programas han sido reproducidos fotográficamente. Si sus 
programas no funcionan, hay que verificarlos atentamente, vi- 
gilando de modo especial los puntos siguientes: 


— líneas omitidas 

— números de líneas equivocados 

— errores de pulsación (mucha atención para no confundir 
la letra O y el número O, o la letra | y el número 1). 


Todos los programas que utilizan las teclas del cursor pue- 
den utilizar un joystick. Para ello hay que reemplazar STICK(0) 
por STICK(1) y STRIG(O0) por STRIG(1). 


am 


Gracias a su ordenador, puede jugar a squash cómoda- 


men 


te sentado en un sillón. La raqueta se desplaza con ayuda 


de las teclas de control del cursor. Dispone de diez pelotas que 
ha de mantener en juego el mayor tiempo posible. Cada pelo- 
ta que se devuelve proporciona un punto. 


REM ARA 
REM * SGUASH * 
REM RRA 
HEY DFF 
GOSUB 340 
LOCATE BX,BY,O 
FRINT NE 
BX=BX+DX 
EY=kEY+DY 
LOCATE EX,BY,O 
PRINT B+; 
IF BY=21 AND ABS(BX-RX-3)%1 THEN 250 
IF BY=21 THEN S=S+1: BEEP:DY=-DY 
IF BY=1 THEN BEEP:DY=-DY 
IF BX=3 OR BX=35 THEN BEEP:DX=-DX 
D=2*((STICK (0)=7)-(STICK(0)=3)) 
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IF D<>0 THEN DO=D 
IF STICK(0)=0 THEN DO=0 
RX=RX+DO 

IF RX<0 THEN RX=0 
IF RX>32THEN RX=32 
LOCATE RX,RY,O 
PRINT R$; 

GOTO 60 

NB=NB+1 

IF NB=11 THEN 370 
LOCATE BX,BY,O 
FRINT N$;z 

FOR I=1 TO 3 

BEEP 

FOR J=1 TO 100 
NEXT J 


> NEXT I 


DO=0 
GOSUB 720 

GOTO 60 

LOCATE 13,5,0 
FRINT "PUNTUACION 
IF S>Rí THEN Ri=S 
LOCATE 13,10,0 
PRINT "RECORD :"5R1; 
LOCATE 13,15 

PRINT "OTRA 2"; 


NB=0 

S=0 

Dé=1 ES 

IF D$<>"" THEN 460 
D+=INKEYS 


IF D THEN 480 

IF Dé<>"N" AND D£<: THEN 50 
CLs 

LOCATE 0,0,1 

END 

CLs 

SCREEN 0,0 

COLOR 15,9 

DEFINT A-Z 


Squash 


580 N$=CHR+ (32) 
590 FOR BX=2 TO 37 
£00 LOCATE BX,0,0 
610 PRINT CHR*(219); 
620 NEXT BX 

630 FOR BY=1 TO 21 
£40 LOCATE 2,EY,0 
650 PRINT CHR$(219); 
$60 LOCATE 37,BY,0 
6£70 PRINT CHR$ (219); 
£80 NEXT BY 

590 RE=NE+NE-CHRE € 
3)+ME+NS 

) BE=CHRE (249) 
FExX=16 


+CHRE (2 


3) +CHRE (22 


21 
INT E(RND (1)32)+5 
sd: 

DX=( INT ¿RAND (1) +2) 
770 RETURN 


2 
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Su misión consiste en destruir la ciudad que está sobrevo- 
lando, con objeto de poder aterrizar. A cada pasada, su avión 
vuela un poco más bajo. No puede lanzar una bomba (pulsan- 
do sobre una tecla cualquiera) hasta que la bomba precedente 
haya alcanzado su objetivo o el suelo. Cuando su avión ha 
aterrizado (o cuando se ha estrellado contra un edificio), se 
registra la puntuación, así como el récord del día. Si este 
juego le parece demasiado difícil, puede variar los límites de 
la ciudad (10 y 30, línea 730). 


10 REM OIR 
20 REM * BOMBARDEO AEREO +* 
FO REM RR RMN 
40 KEY OFF 

50 WIDTH 39 

£0 GOSUB 590 

70 GOSUR 670 

80 FOR HY=0 TO 23 

96 FOR HX=0 TO 38 

100 LOCATE HX,HY,O 

110 FRINT At; 

120 IF HX>35 THEN 140 
130 IF VPEEK (HX+5+HYx*40) 
140 IF INKEY$<>"" AND BY=0 AND HX<>38 TH 
EN EX=HX+1:BY=HY+1 

150 IF BY<>0 THEN GOSUB 510 ELSE GOSUB S 
60 
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Bombardeo aéreo 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
30 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
70 
480 
490 
500 
sio 
s20 
530 
s40 
+1 


NEXT HX 

LOCATE 37,HY,0 
FRINT NN$; 
NEXT HY 

FOR I=1 TO 500 
NEXT I 
S=5+40*HY+HX 
GOTO 70 
S=S5+40*HY+HX 
VPOKE BEX+B1x*40,0 
FOR I=HY TO 22 
LOCATE HX+1,1,0 
FPRINT NN$; 

LOCATE HX+1,1+1,0 
FRINT RIGHT+(A+$,3)5 
FOR J=1 TO 100 
NEXT J 

NEXT 1 

IF SR THEN R=S 
LOCATE 3,0,0 
FPRINT "PUNTUACION 
LOCATE 25,0,0 
FRINT "RECORD : 


FOR I=1 TO 100 
NEXT 1 

R$=INKEYS 

IF R$<>"" THEN 410 


LOCATE 7,13,0 
PRINT "OTRA 2"; 


R+=INKEEYS 
IF Ré="" THEN 450 
IF RE<3"N" AND Ré$<5"n" THEN S=0:GOTO 


COLOR 15,4,S:LOCATE 0,0,1 


VPOKE BX+B1x40,32 
R1=BY 
IF EY<>0 THEN VFOKE BX+BY*40, 


Bombardeo aéreo 


550 RETURN 
560 FOR I=1 TO 10 
570 NEXT 1 

580 RETURN 

590 SCREEN 0,0 
£00 GOSUB 790 

£10 COLOR 10,1 
£20 DEFINT A-V 
630 AF=CHRE( 
> 

640 B=131 
£50 NN$=CHR$ (32) +CHR$ (32) +CHR$ (32) 
£60 RETURN 

670 HX=0 


+CHRE (128) +CHRE 127) +CHRE 


730 FOR 1=8) TO 29 

740 FOR J=23 TO INT(RND(1)*5)+14 STEP-1 
750 VPOKE 1+3*40,132 

760 NEXT J 

770 NEXT 1 

780 RETURN 


870 DATA 0,0,0,0,0,48,50,62 
880 DATA 14,14,4,14,14,14,14,4 


890 DATA 63,41,41,41,63 


63,63,63 
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SS o eS 
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Ahora se han invertido los papeles. Su misión es manejar 
las defensas contra aviones e intentar abatir los aviones que 
vuelan sobre su posición. Para disparar hay que usar una 
tecla cualquiera. Inicialmente dispone de 15 misiles. Si consi- 
gue abatir 10 aviones, obtendrá una bonificación de 10 puntos 
y 10 nuevos misiles adicionales. 


10 REM 

20 REM * D.C.A. * 

30 REM MM 

40 KEY OFF 

50 WIDTH 39 

60 CLEAR 250 

70 GOSUB 640 

80 AF=RIGHTS (A+, 1)+LEFT+(A+,38) 
90 BS$=RIGHTS (B+,38)+LEFTS(B+,1) 
100 LOCATE 0,0,0 

110 PRINT At; 

120 LOCATE 0,2 

130 PRINT B4; 

140 LOCATE MxX-2,24,0 

150 PRINT J4; 

160 Ré=INKEYS 
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Defensa contra aviones 


170 IF Ré<>"" AND MY=24 THEN MY=23: CM=64 
¿NM=NM-1 

180 IF MY<>24 THEN MY=MY-2:UPOKE MX+MYx*4 
0, CM: VPOKE MX+(MY+2)*40,C0 

IF MY<>3 THEN 270 

IF VPEEK(MX+80)=C0 THEN 270 

VFOKE MX+80,CE 

VFOKE MX+MYx*40,C0 

BEEP 

S=5+1 

BS=LEFTS (B+,17)+013+RIGHT+ (B+,18) 
GOTO 340 

IF MY<>1 THEN 370 

IF VFEEK(MX)=C0 THEN 370 

VFOKE MX,CE 

S=S+1 

VPOKE MX+MYx40,C0 

BEEP 

AS=LEFTS (A$,17) +D13+RIGHTS (0+,18) 

TF S>1 AND S/10=INT(S/10) THEN GOSUB 


LOCATE 0,24,0 
380 PRINT "S :"¿S3"M :"¿NMjz 

390 IF NM<1 AND MY=24 THEN 420 

400 IF MY<=1 THEN VFOKE MX+20,C0: MY=24:M 


410 GOTO 80 

420 IF S>R THEN R=S 

430 LOCATE 15,10 

440 PRINT "PUNTUACION :"; 
4530 LOCATE 15,13 
460 PRINT "RECORD : 
470 LOCATE 15,16 
480 PRINT "OTRA 7"; 
470 RE=INKEY+S 

500 IF Re 
510 Ré=INKEY+ 


THEN 490 


THEN 5160 
N" AND R$<="n" THEN 70 
540 LOCATE 0,0,1 
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Defensa contra aviones 


+ io 
FOR 1=i TO 300 


RETURN 

640 DEFINT A-Z:SCREEN Y 
650 
666 3 Bé=" "3 NESCHRE (323 

670 FOR I=1 TOS 

$80 As=AR+CHRE (128) +CHR3 (129) +Nd+NE+4NE+N 
FANFANE 

670 Bé=ES$+CHR$ (120) +CHRE (131) 4+NF+N$+Nb+N 


CGLOR 10,4 


700 
710 (0,39): B4=LEFT+(B4,39) 
720 Alé=8+:B1+t=B+:CE=135 

730 )+CHRE (133) +CHRE (132) 
740 MX=19:MY=24:NM=15:G6=1 
750 CO=32: 01 4=M4+N$+NG+NS 
760 LOCATE MX-2,MY,O:FRINT J$; 
770 LOCATE 0,0,0:FRINT At; 

80 LOCATE 0,2,0:PRINT Ex; 

790 RETURN 

800 RESTORE 
810 FOR I=0 TO 63 
520 READ A:VFOKE 2072+1,6x4 
830 NEXT 1 
840 RETURN 
850 DATA 0,1,48,49,63,63,16,0 
860 DATA 0,62,36,62,63,673,62,24 
870 DATA 0,31,9,31,63,63,31,6 
880 DATA 0,32,3,35,63,63,2,0 
890 DATA 0,0,0,0,0,63,63,63 
900 DATA 30,30,30,63,67,63,63,63 
910 DATA 4,14,14,14,14,14,14,14 
920 DATA 4,21,14,4,4,14,21,4 
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Dos jugadores se enfrentan para dividirse el espacio vital. 
Cada uno de ellos debe esforzarse, al irse desplazando, para 
no cortar jamás su trazado o el de su adversario, y sin salirse 
del rectángulo dibujado en la pantalla. Los mandos a utilizar 
son los joysticks o las teclas siguientes: 


Jugador de la derecha: <P>, <L>, <;> y <.> 
Jugador de la izquierda: <W>, <A>, <S> y <Z> 


10 REM OAREXKHALK 
20 REM * TRAZOS * 

ZO REM OAREXRHEMK 

40 KEY OFF 

50 WIDTH 39 

60 GOSUR 690 

70 ON JK GOTO 140 

80 DF=INEEYS 

90 HB=(DF="L ")-(Dé="3") 
VB=(D+="P")-(DF=".") 
HA= (DéE="A")-(Dé="S") 
YA=(DE="4W")-(DF="Z") 
GOTo 180 
HA=(STICK (1)= 
VA=(STICK (1) 
HB=(STIC 


7) (STICK(1 
)-(STICE (1 


(2)=1)-(STICE 
THEN Hi=HA:V1=0 
THEN 
THEN 
THEN VZ=VB: 
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X1=X1+H1 
Yi=Y1+V1i 
IF VPFEER(X1+Y1*40)3<3N THEN 320 


SN THEN 380 


BEEF 
GOTO 70 
F2=F2+1 
GOSUB 6 
IF F2= 
IF INEEYS 
5 GOSUB 770 
O GOTO 70 
Fi=F1+1 
GOSUB 630 
IF Fi=10 THEN 500 

IF INKEYS< THEN 410 

GOSUR 770 

GOTO 70 

eLs 

450 LOCATE 9,5 

460 PRINT "EL JUGADOR DE LA DERECHA HA GANADO "; 
470 LOCATE 15,10 

380 FRINT F2;"Aa";F1 

490 GOTO 550 

500 CLS 

5106 LOCATE 9,5 

520 PRINT "EL JUGADOR DE LA IZQUIERDA HA GANADO" 
530 LOCATE 15,10 

540 PRINT Fiz "A"¡F2 

550 LOCATE 14,15,1 

560 FRINT "OTRA ?"; 

570 IF INKEY$<3"" THEN 576 

580 D$=INKEYS * 

590 1F Dé="" THEN 580 
600 IF Dé$<>"N" AND D$< 
610 CLS 

620 END 

630 FOR I=1 TO S 


440 
THEN 350 


" THEN RUN 
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Trazos 


640 BEEP 

650 FOR J=1 TO 100 

660 NEXT y 

670 NEXT 1 

680 RETURN 

6790 CLS 

700 SCREEN 0,0 

710 DEFINT A-Z:COLOR 1,12:LOCATE 6,10,0 
GOSUB 920 

"JOYSTICKS 


"* THEN 740 


32 


780 FOR X1=0 TO 


790 VPOKE X1+40, 
800 NEXT Xi 

810 FOR Yi=2 TO 22 
820 VPOKE Y1*40,13 
830 NEXT Yi 

840 LOCATE 2,24,0 
850 PRINT "JUGADOR DE LA IZAUIERDA :"3F1; 
860 LOCATE 22,24,0 

870 PRINT "JUGADOR DE LA DERECHA :";F2; 
880 X1=8: Y1=11:X2=32 


): VPOKE X1+880,130 


¿VPOKE Y1*40+39,130 


920 FOR I=0 TO 23 

3O READ A:VPOKE 3072+1,Ax4 
940 NEXT 1 
950 RETURN 
960 DATA 30,43,53,43,53,43,53,30 
970 DATA 30,63,63,63,63,63,63,30 
980 DATA 63,63,63,63,63,63,63,63 
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¡Dispóngase a practicar los deportes de invierno sin arries- 
gar a romperse una pierna! Láncese desde lo alto de la pista 
e intente pasar por el mayor número posible de puertas sin 
chocar con los palos. Para cambiar de dirección pulse cual- 
quier tecla. 


10 REM reee. 
20 REM x* SLALON + 
ZO REM re KM 
40 KEY OFF 

50 WIDTH 39 

60 GOSUE 450 

70 FOR K=i TO 200 


16 AND (K-5)/10=INT((k-5)/10) 


23 


Slalom 


THEN GOSUB 370 


110 IF K<2284 AND K/10=INT(K/10) THEN G0S 
UA 390 

120 IF INKEY$<>"" THEN DX=-DxX 

130 S1=S5X 

140 SX=SX+DX 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 


DxX=-DX 
3 DX=-DX 


IF SX<2 THEN SxX 
IF SX>36 THEN SxX 
LOCATE S1,SY,O 
PRINT By; 

LOCATE 0,24,0 
PRINT 

LOCATE Sx,SY,O 
PRINT S$(DX/2+.5)5 

S1=SX 

NEXT K 

LOCATE 5,5,0 

FRINT "PUERTA (S) SALTADA ($5): 
LOCATE 5,8,0 

PRINT "OTRA BAJADA >?» 
D$=INKEYS 

IF D$<>"" THEN 290 


D+=INKEYS+ 
IF D+="" THEN 310 
IF D$<>"N" AND D$<>"n" THEN RUN 


CLs 
LOCATE 1,1,1 

END 

IF VPEEK(X-1+Yx*40) 


32 OR VPEEK (X+24+4 


OXY)=32 THEN IF VPEEK(X-2+Yx40)=32 DR VP 
EEK (X+1+Y*40)=32 THEN T=T+1:BEEP 


380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


RETURN 
P=P+(INT(RND(1)*3)-1)x*8 
IF P<2 THEN P=10 

IF P>34 THEN P=26 
LOCATE P,23 

PRINT P3; 

RETURN 

DIM 5$(1) 

DEFINT A-Z 

S$ (0) =CHR$ (128) 

S$ (1) =CHR$ (129) 
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Slalom 


490 B$=CHR$ (32) 

500 P$=CHR$ (130) +B$+B$+CHR$ (131) 
510 SCREEN 0,0 

520 COLOR 4,15 

530 DX= 

540 

550 SX=19 

560 S1=S5X 

570 P=18 

580 GOSUB 660 

590 CLS 

£00 LOCATE 5,10,0 

£10 PRINT "APRIETE CUALQUIER TECLA 
EMPEZAR " 

£20 N=RND (1) 

630 IF INKEYS$="" THEN 620 

640 CLS 

£50 RETURN 

660 FOR 1=0 TO 31 

670 READ A 

680 VPOKE 3072+1,A*4 

690 NEXT 1 

700 RETURN 

710 DATA 4,56,17,26,4,8,16,32 
720 DATA 8,7,34,22,8,4,2,1 
730 DATA 12,28,12,4,4,4,4,4 
740 DATA 6,7,6,4,4,4,4,4 
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PARA 


ARO 


B 
RS É 
> Al 
5 09 

a 

y 
Se 

Pan 4 
E o . eso 

D e 
apo E Da 


He aquí una forma curiosa de usar un ordenador; ha de 
intentar recoger lo más rápidamente posible las migajas que 
recubren el mantel. Dispone de 30 segundos para conseguir 
su limpieza total. Las migajas están representadas por puntos 
blancos. Las teclas de control del cursor, permitirán dirigir su 
recogedor. 


10 REMO ARA 

20 REM *« RECOGEDOR + 

ZO REM OAAREREANERRES 

409 KEY OFF 

50 GOSUB 260 

€0 LOCATE 0,23,0 

70 PRINT "TIEMPO: "¡17 (2); "PUNTUACION: " 


90 Ki 


120 IF Di<>0 THEN DX=D1:DY=0 

130 IF D2<>0 THEN DY=D2:DX=0 

140 XP=FX+DX 

150 YP=PY+DY 

160 CR=VPEEK(XP+YP*40) 

170 1F CR=J OR CR=B THEN XP=PX:YP=PY 
180 IF CR=M THEN S=S+1:BEEP: X=X+1 
190 VPOKE PX+PYx40,N 

200 VPOKE XP+YP*40,J 
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Recogedor 


210 
220 


610 


TELA 
IF X=NM THEN 720 
GOTO 60 

SCREEN 0,0 
COLOR 15,4,5 
DEFINT A-Y 
B=233 


=249 


NM=10 
x=0 

FOR FPX=0 TO 39 

VPOKE PX+40,B 

VPOKE BS0+PX,E 

NEXT PX 

FOR PY=2 TO 21 

VPOKE PYx*40,B 

VPOKE PYx*40+39,B 

NEXT PY 

FOR I=1 TO NM 

PX=INT (RND(—TIME)*37)+1 

PY=INT (RND(-TIME)*21)+2 

IF VPEEK(PX+PYx*40)<>32 THEN 440 
VPOKE PX+PYx40,M 

NEXT 1 

PX=INT (RND(—TIME)*37) +1 
PY=INT(RND(-TIME)*21)+2 

IF VPEEK(PX+PYx*40)<>32 THEN 490 
VPOKE PX+PYx*40,J 

Z=30 

DxX=0 

DY=0 

J=219 

RETURN 

FOR I=1 TO 500 

NEXT 1 

IF INKEY$<>"" THEN 600 

IF S>R THEN R=S 
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Recogedor 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
7530 


LOCATE 13,10 


PRINT "RECORD :"3 
LOCATE 13,16 
FPRINT "OTRA 2%; 
D$=INKEYS 

IF D$="" THEN 660 
IF D+* 


CLS 

LOCATE 0,0,1 
END 

NM=NM+1 

UPOKE XP+YPx40, 
GOSUE 340 

GOTO 60 


N 
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N" AND D$<>"n" 


THEN 50 


Procure avanzar con su tanque evitando las minas que el 
ordenador ha colocado al azar. Para dirigir el tanque hay que 
usar las teclas de control del cursor. Si el paso se halla blo- 
queado puede hacer explotar una mina disparando uno de sus 
diez proyectiles (pulsar la barra espaciadora). 


REMO OFRAERRIRE 

REM *TANQUE+* 

REMO ARANA 

KEY OFF 

WIDTH 39 

GOSUB 370 
TX=TX+(STICK(0)=7)-(STICK(0)=3) 
20 VPOKE X+40*Y,32 

70 LOCATE 0,24,0 

100 FPRINT Ré* 

110 IF VPEEK(TX+TY*40)<532 THEN 300 
120 VPOKE TX+TYx*40,T 

130 IF STRIG(0)=-1 THEN GOSUB 240 
140 X=TX 

150 Y 

160 PO=INT(RND(1)*7)+18 

170 VPOKE 880+PO0,M 

1980 FPO=INT(RND(1)*7)+18 

190 VPOKEE 880+PO,M 

200 S=S+1 

2159 FOR I=1 TO DL-S 

220 NEXT I 

230 GOTO 70 


31 


>) THEN 290 
DB=0B-1 
FOR I=1 TO 5 
MEPOKHE TX+(TY+1) *40,32 
NEXT 1 
RETURN 
> FOR I=i TO 10 
VPOKE TX+TYx*40,M 
FOR J=1 TO 100 
) NEXT 3 
BEEP 
VPOKE TX+TYx40,T 
FOR J=1 TO 100 
NEXT J 
BEEP 
NEXT 1 
IF S>R THEN R=S 
CLS 
LOCATE 10,10 
PRINT "PUNTUACION ";S; 
LOCATE 9,14 
PRINT "RECORD 
460 LOCATE 9,18,1 
470 PRINT "OTRA 7"; 
480 IF INKEY$<>"" THEN 480 


THEN 490 
' AND X$23"n" THEN 550 


530 COLOR 15,4 
540 END 

550 GOSUR 720 

560 GOTO 70 

570 CLS 

580 SCREEN 0,0 
590 COLOR 1,11 
600 DEFINT A-Z 
610 T=128 

620 M=42 

630 Re="" 

640 FOR I=1 TO 15 
650 Ré=R$+CHRE (32) 
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Tanque 


660 NEXT 1 

670 RE=RE+CHRE (42) +CHRS (42) 
680 FOR I=1 TO 7 

690 Ri=RE+CHRE 
700 NEXT 1 


710 RE=RF+CHRE (42) +CHR+ (42) 
720 CELS 

730 TX=19 

740 TY=10 

730 X=TX 


810 FOR I=1 TO 24 
820 FRINT Rg 

830 NEXT 1 

RETURN 

) RESTORE 

FOR I=0 TO 7 
READ A 

VPOKE 3072+1,0*4 
NEXT 1 

RETURN 

DATA 17,31,31,31,31,21,4,4 
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He aquí un juego que requiere bastante destreza. Debe 
intentar marcar el mayor número posible de puntos, eliminan- 
do las letras que son presentadas por la computadora. Utilice 
las teclas de control del cursor. 

Atención: debe eliminar las letras por orden alfabético, 
evitando los obstáculos que se encuentran dispuestos al azar 
sobre la pantalla, y ello dentro del tiempo límite. (El tiempo 
que queda aparece en la parte baja de la pantalla). Cuando 
todas las letras estén eliminadas, el juego continúa con una 
letra suplementaria. 


10 REM ARAN 

20 REM * ALFABETO * 

ZO REM IRRA MR 

40 KEY DFF 

50 WIDTH 39 

60 GOSUR 350 

70 FOR I=1 TO X 

80 LOCATE 0,23,0 

90 PRINT "TEMPS :"¡ INT(Z),"SCORE :"S; 
100 IF Z<i THEN 700 

110 K=STICK(0) 

120 Di=(K=7)-(K=3) 
130 D2= 
140 IF Di<>0 THEN DX=D1:DY=0 
150 IF D2<>0 THEN DY=D2:DX=0 
160 XP=PX+DX 

170 YP=PY+DY 

180 CR=VPEEK (XP+YPx40) 
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Alfabeto 


150 1F CR=1+64 THEN S=S+1: BEEP:GOTO 270 
200 IF ECR2>32 THEN XP=PX:YP=PY 

210 VFOKE PX+PYx*40,N 

220 
230 
240 


VPOKE XP+YPx*40,J 


VPOKE PX+PY*40,N 
VPOKFE XP+YPx*40,3J 
PX=XP 

PY=YP 

Z=2-.1 

NEXT 1 

GOSUR 350 

GOTO 70 

SCREEN 0,0 

COLOR 15,3 
DEFINT A-Y 


N=32 

FOR PX=0 TO 39 
VPOERE PX+40,M 
VPOKE 880+PX,M 
NEXT PX 

FOR PY=2 TO 21 


FYx40,M 
PYx40+39,M 
NEXT PY 

FOR I=1 TO 120 
PX=INT(RND(1)%37)+1 
PY=INT(RND(1)21)+2 
1F VPEEK(PX+PYx40)< 
VFOKE PX+PYx*40,M 
NEXT 1 

FOR Z=1 TO X 
EX=INT(RND(1)37) +1 
FY=INT(RND (1) 21)+2 

590 1F VPEEK(PX+FYx40)2<>32 THEN 570 
600 VPOKE PX+FYx40,7+64 


32 THEN 510 
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Alfabeto 


610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
B10 
820 
830 


NEXT Z 

PX=INT (RND(-TIME)*37)+1 

PY=INT (RND(—TIME)*21)+2 

IF VPEEK(PX+PY*40)<>32 THEN 620 
VPOKE PX+PYx*40,J 

Z=50 

DX=0 

DY=0 

RETURN 

FOR I=1 TO 500 

NEXT 1 

IF INKEYS$<>"" THEN 720 

IF S>R THEN R=S 

LOCATE 13,10 

PRINT "RECORD 
LOCATE 13,16 

PRINT "OTRA 7%; 
D$=INKEYS 


IF D$="" THEN 780 

IF D$<>"N" AND D$<>"n" THEN RUN 
cLs 

LOCATE 0,0,1 

END 
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Después de un largo viaje sin gravedad, no resulta nada 
fácil aterrizar suavemente con una nave espacial; pero gracias 
a su ordenador, está en condiciones para efectuar un entrena- 
miento sin riesgos. Debe colocar su nave sobre la zona desti- 
nada al efecto. Puede dirigirse hacia la derecha y hacia la 
izquierda con ayuda de las teclas <>> y <>, tras cada 
aterrizaje con éxito, el juego vuelve a comenzar con mayor ve- 
locidad. La cantidad de combustible disponible viene indicada 
por la longitud del trazo horizontal que aparece en la parte alta 
de la pantalla. 


10 REM RERFAREREREREREA 

20 REM * ATERRIZAJE —* 

ZO REM ORAEAEAREAEAAAAAR 

40 GOSUB 350 

50 GOSus 520 

605 FOR NY=1 TO Zi 

70 DEINKEYS 

80 NH=NX y 

30 NX=NX+(STICK (0)=7) -(STICK(10)=3) 
100 1F NX<22 THEN NxX=2 

110 1F NX>36 THEN NX=26 

120 LOCATE NH,NY-1:PRINT B2%; 
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Aterizaje 


130 LOCATE NH,NY:PRINT B2+; 
140 LOCATE NX,NY:PRINT Ni$; 

150 LOCATE NX,NY+1:PRINT N2%; 

160 FOR I=1 TO DL:NEXT 1 

170 NEXT NY 

180 IF INTC((NX-4)/10)=(NX-4)/10 THEN GOT 
O so 

LOCATE NX, NY:PRINT B2%; 

LOCATE NX,NY-1:PRINT B23%; 

IF ONX<5 THEN NX=5 

LOCATE NX-3,NW:PRINT NC+; 

BEEP 

FOR I=i1 TO 400:NEXT 1 

250 LOCATE 8,10:PRINT “LA NAVE SE HA 
ESTRELLADO"; 


260 LOCATE 15,12:PRINT "PUNTUACION. :"¡S-1;5 


270 LOCATE 14,15:PRINT "OTRA 7"; 
280 1F INKEYF$<>"" THEN 280 

290 Dé=INKEYS 

IF Dé="" THEN 290 

IF D$<>"N" AND DF$<>"n" THEN RUN 
LOCATE 0,0,1 

CLS 

END 

COLOR 10,4 

SCREEN 0,0 

WIDTH 39 

KEY OFF 

FOR 1=0 TO 39 

READ A 

VPOKE 3072+1,4%4 

NEXT 1 
ES=CHRE (32) 
E2F=EP+ES 
Ni+=CHR+ (128 
N2 
AF=CHRE (132) +CHRE (132) 

NC+=CHRE (131) +CHRE (129) +BF+CHRS (128) 
+CHRE (130) 

490 5=0 

500 DL=100 

510 RETURN 


1+CHRS (129) 
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Aterizaje 


50 
330 
540 
550 
560 
570 
580 
590 
$00 
610 
b20 
630 
640 
6530 
660 


FOR i=1 TO SOG:¿NEXT 1 
cLs 

FOR 1=0 TO Z 
LOCATE 4+1:10,24 


S=S+1 

NX=INT (RND(1)+35)+2 

RETURN 

DATA 0,7,13,31,59,59,63,59 
DATA 0,56,60,67,55,55,63,55 
DATA 59,31,15,16,32,32,16,56 


DATA 
DATa 


55,62,60,18,1,1,2, 
3,63,63,0,0,0,0,0 
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Su ordenador le invita a una cacería de patos. Los patos 
vuelan de derecha a izquierda por la parte alta de la pantalla. 
Vd. se desplaza útilizando las teclas del cursor. Puede efectuar 
tantos disparos como quiera, pero tan sólo pasarán 20 patos 
y su objetivo es abatir el mayor número posible. Para dispa- 
rar, pulse la barra espaciadora. Si alcanza un pato, conseguirá 
un punto y lo verá caer batiendo sus alas. 


10 REM ARA RARN ARM 
20 REM * LA CAZA DEL PATO * 
ZO REM 0000 EN 
40 KEY OFF 

50 WIDTH 39 

60 GOSUB 330 


70 Z=-Z 
80 H=Z+.5 
90 CX=CX-1 


100 IF CX<0 THEN GOSUE 360 
110 IF NC=0 THEN 710 
120 LOCATE CX,CY,O 
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La caza del pato 


130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


PRINT CCS$(H)5 
LOCATE X,Y,O 

PRINT Ns; 

LOCATE JX.3Y 

PRINT J$; 

X=3X 

IF TY<>JY THEN TY=TY-2:GOTO 210 
TX=IX 

IF TY<2 THEN 610 

LOCATE TX,TY,O 

PRINT 3%; 

IF TY<>JY THEN LOCATE TX,TY+2,0:PRIN 


T Né4; 


250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
+N+ 
440 
+NF 
450 
460 
470 
480 
490 
500 
si10 


IX=IX+2% ((STICK (0) =7)-(STICK(0)=3)) 
IF J3X>37 THEN JX=37 

IF JX<2 THEN JX=2 

IF STRIG(0)=0 THEN 70 

IF TY<>JY THEN 70 

TY=JY-2 

TX=JX 

GOTO 70 

cLs 

DEFINT A-Y 

SCREEN 0,0 

GOSUB 1110 

COLOR 3,4 

cLs 

DIM CC+$(1) 

J$=CHR$ (128) 

N$=CHR+ (32) 

ES=CHR+ (42) 

CCE (0) =CHR$ (129) +CHR+ (130) +CHR$ (131) 


CC+ (1) =CHRE (129) +CHRS (132) +0HRS (131) 


CxX=Z6 
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La caza del pato 


520 CY=0 
530 X=JX 

540 Y=JY 

550 RETURN 

560 LOCATE 0,0,0 

570 FPRINT Né+N$+N$; 

580 CX=36 

590 NC=NC-1 

600 RETURN 

610 IF TX=CX OR TX=CX+1 THEN 830 
620 LOCATE TX,TY+2,0 

630 PRINT N3; 

£40 LOCATE TX,TY,O 

650 PRINT J*; 

660 LOCATE TX,TY,O 

670 FRINT N$; 

£80 TX=JX 

690 TY=JY 

700 IF NC<>0 THEN 220 

710 CLS 

720 LOCATE 10,10,0 

730 PRINT "PUNTUACION : ";S; 
740 LOCATE 9,20,0 

750 PRINT "OTRA 7"; 

760 1F INKEY$<>"" THEN 760 


" THEN 770 
"N" AND X$<3"n" THEN RUN 
800 LOCATE 0,0,1 

810 CLS 

820 END 

830 LOCATE TX,TY,O 

840 PRINT Es; 

850 LOCATE TX,TY+2,0 

860 PRINT Ns; 

870 BEEP 

880 FOR I=1 TO 50 

890 NEXT 1 

900 S=S+1 

910 DX=CX 

920 CX=36 

930 FOR I=1 TO 24 


45 


La caza 


del pato 


940 

950 

960 

970 

3980 

990 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1196 
1200 


Z=-Z 
H=Z+.5 
LOCATE DX,I-1,0 
PRINT NS+N$+N$;5 
LOCATE DX,1,0 
PRINT CC$(H);5 

BEEP 

FOR J=1 TO 10 

NEXT J 

NEXT 1 

NC=NC—1 

FOR I=1 TO 500 

NEXT 1 

cLs 

IF NC=0 THEN 710 

TY=JY 

GOTO 70 

FOR I=0 TO 39 

READ A 

UPOKE 307241, Mx4 

NEXT 1 

RETURN 

DATA 4,14,31,4,4,4,4,4 
DATA 0,0,0,25,673,0,0,0 
DATA 31,60,56,63,673,0,0,0 
DATA 0,0,0,56,32,0,0,0 
DATA 0,0,0,63,673,56,60,31 
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En este juego, Vd. es una serpiente que se desplaza contor- 
neándose sobre la pantalla. El cambio de dirección se consi- 
gue pulsando cualquier tecla. Para poder desplazarse es preci- 
so que se alimente. Felizmente se halla rodeado por cantidad 
de setas. Pero, ¡cuidado! Si bien algunos son excelentes, 
ha de evitar las setas vacías, puesto que son venenosas. 
Cada seta azul le proporciona las calorías necesarias para 
avanzar diez líneas. ¡Procure no morirse de hambre pero sin 
acabar envenenado 


10 REM RRHH 
REM *SERPIENTE* 
REM RNE E 
KEY OFF 

WIDTH 39 

GOSUB 480 
Di=INEEY+S 

IF Dé25"* THEN D=-D 
X=X+D 

100 1F X21 THEN X=2 
110 1F X339 THEN X=38 
120 C=VPEERK (X+40*Y) 
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Serpiente 


130 1F C=PQ THEN 240 

140 1F C=TR THEN S=S+10: H=H+10: BEEP 

150 VPOKE X+Yx*40,SP 

160 LOCATE 0,24,0 

170 PRINT 

180 VPOKE RND(1)*38+921,TR 

190 IF RND(1)>.5 THEN VPOKE RND(1)*39+92 
1,PO 

200 S=5-1 

210 1F S=0 THEN 240 

220 H=H+1 

230 GOTO 70 

240 BEEF 

250 LOCATE 0,24,0 

260 PRINT 

270 VPOKE X+(Y-1)40,SF 

280 FOR I=1 TO 5 

290 BEEP 

300 FOR J=1 TO 50 

310 NEXT y 

320 MEXT 1 

IF INKEYE<3"" THEN 
IF OH3R THEN R=H 
LOCATE 4,20 

PRINT “PUNTUACION :" 
LOCATE 23,20 

PRINT "RECORD :"3R3 
LOCATE 15,23,1 
PRINT "OTRA 2"; 
D+=INKEYS 

IF Dé="" THEN 410 
IF DSc>"N" AND D+ 
cis 

END 

GOSUB 550 

GOTO 70 

cis 

SCREEN 0,0 
DEFINT A-Z 
510 COLOR S, 
520 SP=128 
530 PO=130 


"pn" THEN 460 
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Serpiente 


540 
350 
560 
370 
580 
590 
600 
610 
£20 
630 
640 
650 
660 
670 
£80 
670 
700 
710 


TR=129 
CLs 

5=1000 

H=0 

D=1 

X=19 

Y=10 

GOSUE 630 
RETURN 

RESTORE 

FOR 1=0 TO 22 
READ A 

VPOKE 3072+1,Ax4 
NEXT 1 

RETURN 


DATA 51,63,45,63,63,30,12,0 
0,12,12,30,0 
DATA 30,33,33,30,12,12,30,0 


DATA 30,63,63, 
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62 7 


Este programa no es realmente un juego pero sí es una ex- 
celente demostración de las amplias posibilidades musicales 
que tiene el M.S.X. 

Para esta composición en “La menor” de Juan Sebastian 
Bach; sólo se emplean dos voces. La labor es poner la tercera. 


10 REMO 4RARARARARE 

20 REM * MUSICA + 

ZO REM OARRRARRARAR 

40 EEY OFF 

50 CLEAR 5000 

60 SCREEN 1,2 

70 AF="VSTI2L3204R3P2EADSCO4BEBOSDL 16CE04 
GRO5E" 

80 Aié="V5T32L 320281 603A8G+1 6AEADA4COZBER 
04D” 

90 AF=A4++"D4L32AEADSCO4BEBOSDL 16C04ABR16 


100 A1F=A1+4+"L16COZAG+EL32AEADACOSBERO4D 
. 

110 AS=0%+"05L32R32ECE04405C04EGL 16FA05D 
FL32FD" 

120 AlF=A81++"L 16CD03AD4COZAL3204DO3AFADFO 
2A03CO2L16B" 

130 B+="0D4BO05DO04GBDFL16EGOSCE" 
O3DGBL32BGEGCEO2GBL 16A03CL32DFO 
2B03DO2L 166 RBO3L32CEO2A03C02L 16FDL32G036F 
GC604CEDOZGOD4DF" 

150 Bé=B++"L32ECO4A05004L 16FOSDL32D04BGR 
L16E0SCL32C04AFAL 16DBOS5C8R8" 
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Música 


160 B+=B3+"D4L32R32605CEDO4GOSDFL 1 6EG04E 
OSGL32C04G505CEDO4G" 

170 Bi+=B1++"L16ECO3B6L3204C03604CEDO36D 
ADFLIó6ECS" 

1890 
190 Cis="R1SR32L32GEGCEOSGA" 

200 C+=C++"D6L 32CO5SAEACEO4ADSCL 16DF+AD6C 
210 Ci*=013+"L16004CEGL32F+ADF+D3A04DOS3F 
+4" 

220 TCEF=C++"L3205BEGDGO4BOSDO4GROSL 16CEGBL 
32AF+" 

230 Cift=C1++"L166B04DF+L32EBCEO3GODA4COSEG 
L16F+" 

240 Di="D+F+04BO0S5D+04F+AL i6G0SGL32GECE" 
250 Dis+="AR04D+L32R32ECEO3ADA4CEG" 

260 DI=D3+"04L 16M05F+L32F+D04B05D04L 1660 
SEL32ECO4M050 " 

270 Di+=D1$+"F+DO3BO04DO3GBD4DF+ECOSADACO 
3F+A04C16" 

280 Dé=D++"0D4F+056F+ED+F+04E05D+EB8RBL32"” 
290 Di+=D1++"CO3BO4CO3AL 1 6BO02B03L32E04E0 
3BGEOZBGE" 

300 Es="R326B-GEGO+ESEC+EDAAGFEDOSFA-FDF 
DABOSDFDO4BOSDO4GFEDCOSEGECEDAADSED+ED4A 
DSCOD4F+ED+C+O3BOSD" 

310 Ei$="L16E03EGB-C+8R8D4DO3DFA-D288R8O 
ACO3CEF+OZABROOSE" 

320 F+="FDO04B05D046+B05D04E6+BERS2Rió6R32 
EAMOSCO4BEBOSDL 1 6004A66+EL32ADSCECO4ADSCOA 
F+A05C04AF+AD+O05CO4BAG+B " 

330 Fi+="D2BO3DFO26+B8R3204L32DCO03R04Li6C 
D3AG+EL32AEAD4CO3BEBO4DOEAECEOSADACOSF+A 
DA4COSAF+ADAF+LIGE" 

340 6+="05D04B6+BDF6+FDFO3BO4FEDCEAECEOS 
ADACD+COZADACOZF+D4CO3BAL 1 66+D4BG+ERS2L3 
2EA05CO4BEBOSDCODAA" 

350 G1+$="G+B6+EO02B6+EB03CECD2AD3CO2D+BRZ 
G+EDBG+DL i6CEDZ2G+-O3EDZA" 

360 H>+="DSCEDO4BOSDFECEGFEDCO4BOSCDEFDG+ 
DEDCAFDO4E05DO46+BO5C04AEABG+AECEOZAS" 
370 Hi+s="D3F+02B036+CADB-6+FDO2B6+ADEF D+ 
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Música 


EO3EO2ABA8" 
380 FOR I=1 TO 10 

390 X$=X+$+CHR$ (0) 

400 NEXT 1 

410 X$=X+44+CHRE (30) +CHR$ (63) +CHR$ (127) +CH 
R$ (127) +CHR$ (63) +CHR$ (30) 

420 X$=X++CHR$ (192) +CHR$ (160) +CHR$ (144) + 
CHR$ (144) +CHR$ (144) +CHR$ (160) 
430 FOR I=1 TO 8 

440 X5=X++CHR$ (128) 

450 NEXT 1 

260 X3=XE+CHR$ 10) +CHR$ (0) 

470 SPRITES (1)=X3 

GOSUB 660 

PLAY A+,A1+ 

GOSUB 660 

PLAY B+,B1+ 

> GOSUE 660 

PLAY C+,Ci4 

GOSUB $60 

PLAY D*,Di4 

) GOSUE 660 

PLAY ES,Elk 

GOSUR 660 

) PLAY F+,Fis 

> BOSUE 660 

PLAY G+,G1% 

) GOSUB $60 

PLAY H+,Hi$ 

GOSUB 66% 

GOTO 490 

FOR 1=1 TO 15 

X=RND (13240 

Y=RND (138176 

PUT OSPRITE 1,(X,V5,FND(1)*15,1 
) FOR J=1 10 80 

) NEXT 3 

MEXT 1 

RETURN 


55 


Al volante de su fórmula 1, intente recorrer la mayor dis- 
tancia posible. Su coche dispone de dos velocidades. Con la 
barra espaciadora apretada se mantendrá en segunda veloci- 
dad. El volante se conduce con las teclas de dirección del cur- 
sor. En su segunda velocidad, el vehículo marcha a doble ve- 
locidad. Pero, ¡cuidado con el accidente! 


10 REM A IR 

20 REM * GRAN PREMIO x* 

TO REM RRE 

40 KEY OFF 

50 WIDTH 39 

60 GOSUB 450 

70 H=STICK (0) 

BO PX=PX+(H=7)-(H=3) 

90 IF STRIG(O) THEN T=2 ELSE T=1 
100 IF VPEEK(FX+40)< CR THEN 240 
110 RX=RX+(RND (1)<.5)-(RND(1)<.5) 
120 1F RX2RN THEN RX=RN 

130 IF RX>3RM THEN RX=kM 

140 VPOKE XF,CR 

150 LOCATE RX,24,0 
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Gran Premio 


160 PRINT R$ 

170 VPOKE PX,V 

180 K=k+T 

190 DL=(2-T)+*50 

200 FOR I=1 TO DL 

NEXT 1 

xXF=FX 

GOTO 70 

240 VPOKE XF,CR 

FOR I=1 TOS 

VFDKE PX+40,AM 

FOR J=1 TO 100 

NEXT J 

BEEFP 

VPOKE FX+40,V 

FOR J=i TO 100 

NEXT J 

NEXT 1 

LOCATE 10,10,0 

PRINT RECORRIDOS: 
5 " THEN 360 

LOCATE 14,16,0 

FRINT "OTRA 7"; 

Dé=INKEYS 

IF Dé="" THEN 390 

25" AND D* 

LOCATE 0,0,1 

ELS 

END 

cLs 

SCREEN 0,0 

GOSUBE 680 

DEFINT A-Y 

COLOR 14,12 

A=221 

CHRE (219) +CHRS (219) +CHR$ (219) 

219 

i8 


THEN RUN 
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Gran Premio 


580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
6805 
690 
700 
710 
720 
730 


XP=PX 

LOCATE 0,0,0 
FOR 1=0 TO 24 
LOCATE RX,1,0 
PRINT R+ 


RETURN 

FOR 1=0 TO 7 
READ A 

VFOKE 3072+1,A*4 
NEXT 1 

RETURN 

DATA 18,0,18,51,51,18,0,18 
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ss 
ds Nr :d 
ei Re 
2 


SAVE 
E Pe 
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Ahora debe ayudar a una pobre tortuga a volver al mar, 
evitando a los voraces cangrejos que patrullan por la playa. 
Cada tortuga que alcance su propósito le proporciona 1 pun- 
to. Dispone de cinco itinerarios para intentar marcar su pun- 
tuación máxima. Emplee las teclas de control del cursor para 
avanzar y para retroceder. 


io 
20 
30 
40 
50 
$0 
70 
80 
$0 


REM AIR IA 
REM * CANGREJOS * 
REM RAIN IR 
SCREEN 0,0 
DEFINT A-Z 

KEY OFF 

WIDTH 39 

GOSUR 990 

GOSUBR 1130 


100 GOSUB 840 
110 LOCATE 0,20,0 
120 PRINT "VIDAS RESTANTES. “¿NF; 
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Cangrejos 


¡IGHTES (AF, 1)+LEFTS(A+,389) 
¡IGHTE (B+$,38)+LEFT+(B+,1) 
150 LOCATE 0,X1,0 

160 PRINT Af; 

170 LOCATE 0,X2,0 

180 PRINT Bi; 

190 LOCATE 0,X3,0 

200 PRINT At; 

210 LOCATE 0,X4,0 

220 PRINT Bs3;5 

D+=INKEV+ 

PY=FY+ (STICK (0)=1)- (STICK(0)=5) 
IF PY>10 THEN PY=10 

IF PY=2 THEN 370 

C=VPEEK (PX+PYx40+1) 

IF Cx532 AND C<>128 THEN 550 
LOCATE PX,YP,O 

PRINT N35 

LOCATE PX,PY,O 

PRINT Pes 

MESE 

T=T+1i 

1F T>500 THEN 660 

GOTO 110 

LOCATE PX,YP,O 

PRINT Nx; 

LOCATE PX,PY,O 

PRINT Pg; 

BEEP 

FOR 1=1 TO 200 

NEXT I 

LOCATE PX,FY,O 

PRINT Nx; 

PY=10 

YP=PY 

S=S+1 

LOCATE 0,0,0 

PRINT "PUNTUACION :";S; 
LOCATE 19,0 
PRINT "RECORD : 
GOSUB 1040 
GOTO 110 
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Cangrejos 


NP=NP-1 

LOCATE PX,YP,O 
PRINT Mé; 

> LOCATE PX,PY,O 
PRINT CHR+ (128); 
GOSUB 1090 

IF NP=0 THEN 660 
PY=10 

YP=PY 

) GOSUB 1040 

GOTO 110 

£60 CLS 

670 IF S3R THEN R=S 
£80 IF T<500 THEN 710 
£90 LOCATE 10,8,0 

700 FRINT "*x TIEMPO TRANSCURRIDO *x"; 
710 LOCATE 10,12,0 

720 PRINT "PUNTUACION : ";S; 
730 LOCATE 10,16,0 

740 PRINT "RECORD :“5R;3 
750 LOCATE 10,20 

760 FRINT "OTRA 2"; 


770 IF INEEY$<>"" THEN 770 

780 D$=INKEYS$ 

IIOAIEAD: THEN 780 

800 IF Dé<>"N" AND Dé<>"n" THEN 100 
g8i0 CLs 

820 LOCATE 0,0,1 

830 END 

840 CL5s 


850 COLOR 1,11 
860 P+=CHR* (128) 
870 N+=CHRE (32) 
ago s=0 

890 NP=S 

PX=19 
PY=10 
YP=PY 

Xx1=4 

X2=5 

X3= 

x4=89 
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Cangrejos 


970 T=0 

980 RETURN 

990 FOR I=1 TO 39 

1000 READ A 

1010 AF=A++CHR$ (0) 

1020 NEXT 1 

1030 Bs$=A+ 

1040 X=RND(1)*35+2 

1050 As=RIGHTS (As, X)+LEFTS(A+,39-X) 
1060 RETURN 
1070 DATA 32,129,130,32,32,129,130,32,32 
132,129,130,32,32,32,32,32,129,130,32 
1080 DATA 32, 10,32,32,32,129,130 
132,32,129,130, 32,129,130,32,32 

1090 PLAY "T1000361604C2036804C16E2T1500 
SBE1G6GSF+14F8D+16E8C1603A8G1604C4C32E16 
1100 FOR I=1 TO 4000 

1110 NEXT 1 

1120 RETURN 

1130 FOR 1=0 TO 23 

1140 READ A 

VEDKE 3072+1,Ax4 

NEXT 1 

RETURN 

DATA 12,45,6 9,30,63,45,0 

DATA 7,15,31,31,18,16,12,0 

DATA 56,60,62,67,18,2,12,0 
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SE GA y 
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He aquí un juego que se acostumbra a ver en los cafés. 
Gracias a su ordenador, ahora podrá jugar con él sin gastar 
ni un céntimo. El objetivo del juego es sencillo: intentar des- 
truir una pared de ladrillos con ayuda de una pelota que debe 
ser devuelta con su raqueta. Cada ladrillo roto le proporciona 
un punto. Tan pronto todo el muro está destruido completa- 
mente, aparece otro de nuevo. Dispone de diez pelotas para 
intentar conseguir la máxima puntuación. Para desplazar la 
raqueta utilice las teclas de control del cursor. 


10 
zo 
30 
40 
50 
660 
70 
18) 
$0 


REM AHH EREAE AER 
REM * LA PARED * 
REF AHARER RAMA 
KEY DFF 

GOSUB 600 
LOCATE EX,EY,0 
FRINT Néy 
EX=EX+DX 
EY=EY+DY 


100 1F VPEEK(BX+BY*40)<532 THEN DY=-DY:S 
=5+1: BEREP 
110 LOCATE PX,BY,O 
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La pared 


120 PRINT Bs; 

130 IF BY=21 AND ARS(BX-RX 1 THEN 290 
140 IF BY=21 AND BX>3 AND BX<36 THEN LOC 
ATE BX,BY:PRINT Ni; : BX=BX+CH 

150 IF BY=21 THEN BEEP:DY=-DY 

160 1F BY=1 THEN BEEP:DY=-DY 

170 IF BX=2 OR BX=37 THEN BEEP:DX=-DX 
180 D=2x*((STICK(O )-(STICK (0)=3)) 

190 IF D<>0 THEN DO=D 

200 IF STICK(0)=0 THEN DO=0 

210 RX=RX+DO 

220 CH=SGN (DO) 

230 IF RX<0 THEN RX=0 

240 1F RX>33 THEN RX=33 

250 LOCATE RX,RY,O 

260 PRINT R$; 

270 1F S=204 THEN GOSUB 930 

280 GOTO 60 

290 NB=NB+1 

300 1F.NB=11 THEN 410 
310 LOCATE BX,BY,O 

320 PRINT Ns; 

330 FOR I=1 TO 3 

340 BEEP 

350 FOR J=1 TO 100 

360 NEXT 3 

370 NEXT 1 

380 DO=0 

390 GOSUB 870 

400 GOTO 60 

410 LOCATE 13,5,0 

420 S5=5+404x*k 

430 PRINT "PUNTUACION : 
440 IF S>Ri THEN Ri=S 
450 LOCATE 13,10,0 

460 PRINT "RECORD :"5R1; 
470 LOCATE 13,15,0 

480 PRINT "OTRA 2"; 


520 Dé=INKEY+ 
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La pared 


530 
540 
550 
560 
570 
580 
590 
£00 
610 
620 
630 
640 
650 
660 
670 
680 


IF D$<5"" THEN 520 


D$=INKEY+ 
IF D*$="" THEN 540 
IF D$<>"NM" AND DEF<>"n" THEN 50 


LOCATE 0,0,1 
CLs 

END 

CLs 

SCREEN 0,0 

GOSUB 1010 

WIDTH 40 

COLOR 15,13 

DEFINT A-Z 

BR$=CHR$ (128) 

N$=CHR$ (32) 
R$=NS+NS+CHRE (223) +CHR$ ( 


3) +N$+NE 


6790 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
aio 
820 
830 
840 
850 
860 
870 
8so 
890 
900 
910 
920 
930 


ES=CHR$ (249) 
FOR BX=1 TO 38 
LOCATE BX,0,0 

PRINT CHR$(219)5 
NEXT BX 

FOR BY=1 TOD 21 
LOCATE 1,BY,0 

PRINT CHR$(219)5 
LOCATE 38,BY,0 
PRINT CHR$(219); 
NEXT BY 

FOR BY=2 TO 7 

FOR BX=3 TO 36 
LOCATE BX,BY,O 
PRINT BR+; 

NEXT BX 

NEXT BY 

RX=16 

RY=22 

EYSz1 

EX=INT (RND(1)%34)+3 
DY=-1 

DX=(INT (RND(1)2)=.5)*2 
RETURN 

K=k+1 


69 


3) +CHRE (22 


La pared 


240 
950 
260 
2970 
980 
970 
1000 
1010 
1020 
1030 
1040 
1056 
1060 
1070 


s=0 
LOCATE BX,BY,O 
PRINT Ns; 


LOCATE RX+2,RY,O 
PRINT ON+,N+,N+; 
GOSUB 700 

RETURM 

RESTORE 

FOR 1=0 TO 7 
READ A 

VPOKE 3072+1,Mx4 
NEXT 1 
RETURN 
DATA 63 
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74] 


El ladrón se ha escapado, llevándose el botín. (Está repre- 
sentado por un as de pique). Se esconde en la ciudad, y Vd. 
tiene cincuenta minutos para encontrarlo y detenerlo. Aten- 
ción, ¡no se precipite! Efectivamente, si se echa sobre él sin 
pensar, tiene todas las posibilidades de que se le escape de 
entre los dedos. La mejor manera de cogerlo es alcanzarlo de 
lado. (Es eficaz si actúa de repente, a condición de que no 
falle). Si no se siente demasiado seguro de sí mismo, atáque- 
le de cara, lo cual es más fácil pero mucho menos eficaz, ya 
que no resulta tan discreto. Otro consejo: no intente perse- 
guirlo; no le daría ningún resultado, pues es más rápido que 
usted. Observe sus movimientos, como si fuese un detective, 
Cuando vea que da vuelta, acérquese sin hacer ruido y sor- 
préndalo en el momento preciso. Pero, recuerde, ¡el tiempo 
va pasando! 


REV AARIRARRAR 
REM *PERSECUCIONS 
REM ARA + 
KEY OFF 

WIDTH 39 

GOsuB 1060 

S=0 

N=32 

V=128 

100 P=129 

110 GOSUR 670 

120 ST=STICKH (0) 
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Persecución 


130 
140 
150 Z=2-.2 

160 LOCATE 0,24,0 

170 PRINT "TIEMPO; "5 INTCZ+1)5 

180 1F Z20 THEN 370 

190 PX=PX+DX 

200 PY=PY+DY 

210 C=VPEEK (PX+PYx*40) 

220 1F C=Y THEN 1010 

20 E THEN PX=XP:PY=YP 

240 VPOKE XP+YPx*40,N 

250 VPOKE PX+PY*40,P 

260 YP=PY 

270 XP=PX 

280 VX=YX+CX 

290 VY=YY+CY 

300 1F VPEEK(VX+VYx40)<3N THEN GOSUB 510 
310 1F VPEEK(VX+VYx*40)<3N THEN 280 
320 VPOKE XV+YVx*40,N 

330 VPOKE VX+VYx*40,V 

340 XV=WX 

350 YV=4Y 

360 GOTO 120 

370 1F INKEY$<>"" THEN 370 

380 FOR I=1 TO 1000 

390 NEXT 1 

400 LOCATE 10,6 

410 PRINT "TIEMPO TRANSCURRIDO ”; 
420 LOCATE 10,10 

430 FRINT "PUNTUACION :"“5S; 

440 LOCATE 10,18,1 

450 PRINT "OTRA 7"; 

460 D$=INKEY+ 


470 IF Ds+ " THEN 460 

480 IF D*<>"N" AND Dé<>"n" THEN RUN 
490 CLS 

500 END 


510 DT=DT+1 

520 GOSUB 620 

530 1F VPEEK(XV+CX+(YVU+CY)40)=N THEN VX 
=XV+CX: VY=YV+CY : RETURN 
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Persecución 


540 DT=DT-2 

550 GOSUB 620 

560 IF VPEEK (XV+CX+(YV+CY)+*40)=N THEN VX 
=XV+CX 2 VY=YV+CY : RETURN 
570 DT=DT-1 

580 GOSUB 620 

590 VX=XV+CX 

600 VY=YV+CY 

610 RETURN 

620 IF DT>4 THEN DT=DT-4 
630 1F DT<1 THEN DT=DT+4 
640 CX=(DT=1)-(DT=3 
650 CY=(DT=2)-(DT=4) 
660 RETURN 

670 CELS 

680 FOR VX=0 TO 39 
670 VPOKE VX+40,219 
700 VPOKE VX+880,219 
710 NEXT YX 

720 FOR VY=2 TO 22 
730 VPOKE VYx*40,219 
740 VPOKE VY*404+39,219 
730 NEXT VY 

760 FOR VX=1 TO 150 
770 GOSUB 970 

780 VPOKE PX+PY*40,219 
790 NEXT VX 

800 GOSUB 970 

810 VX=PX 

820 VY=PY 

830 VPOKE VX+V4Yx*40,V 
840 XV=VX 

850 YV=VY 

860 GOSUB 970 

870 VPOKE PX+PYx*40,F 
880 XP=PX 

890 YP=FY 

900 Z=50 

910 CX=0 

920 CY=0 

930 DX=0 

940 DY=0 
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Persecución 


9530 DT=0 

960 RETURN 

970 FX=INT(RND (1)37)+1 
980 FY=INT(RND (1)21)42 
990 1F VPEEK(PX+PYx40)<3NM 
1000 RETURN 

1010 FOR I=1 710 5 

1020 PLAY "DC" 

1030 NEXT 1 

1040 S=S5+1 

1050 G0TO 110 

1060 SCREEN 0,0 

1070 COLOR 6,14 

1080 CLS 

1090 DEFINT A-Y 

1100 FX=RNDi—-TIME) 

1110 RESTORE 

1120 FOR 1=0 TO 15 

1130 READ A 

1140 VEOKE 3072+1,4%4 
1150 NEXT 1 
1160 RETURN 
1170 DATA = 
ii90 
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Está solo, abandonado sobre un planeta defendido por 
robots asesinos. El suelo está sembrado de minas las cuales 
debe evitar necesariamente. Las minas se hallan representa- 
das sobre la pantalla mediante unas “X”. Al comienzo del 
juego, cinco robots se hallan sobre el terreno. Sin perder un 
segundo, se precipitan hacia usted, siguiendo siempre el ca- 
mino más corto. Por suerte, los robots son ciegos y no ven las 
minas que se hallan entre ellos y usted, lo cual le permite eli- 
minarlos, siempre que se desplace del modo adecuado. Para 
ello debe usar las teclas del cursor. 


Cuando haya eliminado a todos los robots, el juego conti- 
núa con un robot suplementario. Si salta sobre una de las mi- 
nas o le mata uno de los robots, aún no se ha perdido todo. 
En realidad tiene cinco vidas. 


10 REM ORAR RRA 
20 REM * ROBOTS + 
ZO REM ARRE 
40 KEY OFF 

50 WIDTH 3% 

60 SCREEN 0,0 

70 DEFINT A-Z 

30 NH=5 

90 Ni=5 

100 NM=40 

110 NE=N1 

120 DIM R(30,1) 

130 G0SUB 1320 

140 GOSUB 770 

150 GOSUB 670 

160 C=VPEEE(HX+HYx*40) 
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Robots 


170 IF C<3N AND C<>H THEN 440 
180 VPOKE X+Yx*40,N 

190 VPOKE HX+HYx40,H 

200 X=HX 

210 Y=HY 

220 FOR J=1 TO 200 

230 NEXT J 

240 T=0 

250 FOR I=1 TO NR 

260 IF R(1,0)=0 THEN 370 

270 T=1 

280 RX=R(1,0)+SGN(HX-R(1,0)) 

290 RY=R(1,1)+SGN(HY-R(1,1)) 

300 C=VPEEK(RX+RY*40) 

310 IF C=M OR C=R THEN S=S+1:VPOKE R(1,0 
)+40%R(1,1),N:R(1,0)=0:G0TO 370 
320 IF C=H THEN 440 

VPOKE R(1,0)+40*R(1,1),N 

340 VPOKE RX+40*RY,R 

350 R(1,0)=RX 

360 R(1,1)=RY 

370 NEXT 1 

380 IF T=0 THEN 400 

390 GOTO 150 

400 S=5+10 

410 IF INKEY+<>"" THEN 410 

420 IF NR<30 THEN NR=NR+1 

430 GOTO 140 

440 NH=NH-1 

450 VPOKE X+40xXY,N 

Hx+40*HY,H 
V12D2D3D8D2F3EBE3D8D3C+8D2" 
480 A24="F2F3FSF2A3GBG3FEFIESF2" 
490 A3$="0342B-3B-BA2B-3B-SAFASBB-3B-SA2" 
500 PLAY A1%,A2%,A3$ 

510 FOR I=1 TG 5000 

520 NEXT 1 

530 IF INKEYS: THEN 530 

540 IF NH>O THEN NR=N1:GOTO 140 
550 CLS 

560 SCREEN 0,0 

570 LOCATE 9,10 


80 


Robots 


THEN RUN 


THEN HY=HY-1 

THEN HY=HY-1: HX=HX+1 
THEN HX=HX+1 

THEN X+1: HY=HY+1 
THEN H 
THEN 
THEN 
IF J=8 THEN HX=HX-1: HY=HY-1 
RETURN 

S CLS 

COLOR 1,13 

FRINT "PUNTUACION "¿Ss 

IF NH=1 THEN 850 

FOR Hx=1 TO NH-1 

) LOCATE 19+HX,24,0 

FRINT Hi; 

NEXT HX 

FOR HX=0 TO 39 

UFOKE HX+90,M 

VFOKE HX+880,M 

O NEXT HX 


TO 22 
HYx*40,M 

¿E HY*40+39,M 
NEXT HY 

FOR I=1 TO NM 
HX=INT (RND (1337) +1 
NT(RND (1) 21)3+2 
UPOKEE HX+40*HY,M 
970 NEXT 1 

980 FOR I=1 TO NR 

990 R(1,0)=INT(RND(1)%37)+1 
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Robots 


1000 
1010 

990 
1020 
1030 
1040 
1050 
10660 
1070 
1080 
1090 
1100 
i1i0 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
12720 
1230 
1240 
1250 
1260 


RCIT, 1) =INF(RND (1) 21)+2 


IF VPEEK(R(I,0)+40%R(1,1))<2532 THEM 


VPDEE RCI, 0) +40*R(1,1),R 

NEXT I 

HX=INT(RND (1)+37)+1 
HY=INT(RND(1)21)+2 

IF VWPEEKC(HX+HYx40)< 332 THEN 1040 
IF WPEEEK (HX+HYx*40-41)< 
IF WPEERK (HX+HYx*40-40) 
1F VPEEK (HX+HYx*40-39 
IF” WPEEK (HX+HYx*40-1)< 
IF VPEEKE (HxX+HYx40+1) 
IF VPEER (HX+HYX40+ 20) < 


FOR I=1 TO 5 
VPOKE HX+HYx40,H 
BEEP 

FOR J=1 TO 50 
NEXT 3 

VPOKE HX+HYx40,H 
FOR J=1 TO 50 
NEXT 3 

NEXT I 

RESTORE 

FOR 1=0 TO 15 
READ A 

VPOKE 3072+1,Ax4 
NEXT 1 

RETURN 

H=129 


O He=CHR+ (129) 


M=219 

R=128 

N=32 

RETURN 

DATA 30,63,45,63,63,18,30,30 
DATA 28,28,8,62,8,8,20,20 
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THEN 1040 


2 THEN 1040 
THEN 1040 
THEN 1040 
2 THEN 1040 


Saltando de un helicóptero en vuelo, intente alcanzar el 
blanco situado en el suelo. Una primera presión sobre una 
tecla le permite bajar verticalmente en caída libre. Una segun- 
da presión provoca la abertura del paracaídas. El descenso 
continúa más lentamente, y con un ángulo de 45 grados, 
puesto que el viento le empuja. Cuando más espere a abrir el 
paracaídas, menos será desviado. Pero, no aguarde excesiva- 
mente ya que por debajo de los cien metros, el paracaídas no 
se abrirá. 


10 REM A AA 

20 REM * PARACAIDAS * 

ZO REM AA 

40 KEY OFF 

50 WIDTH 39 

60 S=0 

70 GOSUB 510 

80 H=H-1 

90 IF H=-1 THEN LOCATE O,O:PRINT M$¿:HH= 
36: H=36 

100 LOCATE H,O:FRINT Há; 
110 DF=INKEYE 

120 1F Dé="" THEN GOTO 170 
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Paracaídas 


130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


IF PV>16 THEN GOTO 170 
1F SP=1 THEN LET OP=1:G0TO 160 


sP=1 


1F OP=0 THEN PV=1:PH=H+1.5 

IF SP=0 THEN GOTO 340 

IF OP=0 THEN PYV=FY+1 

IF OP=1 THEN PV=PV+.5: PH=PH-.5 
1F PV>21 OR PH<0 THEN GOTO 360 
IF OP=1 THEN GOTO 280 

LOCATE HO,V:PRINT N$+N+5 


v=PY 
HO=PH 


LOCATE HOD,V:PRINT C3%;5 
FOR 1=1 TO 40:NEXT I 


GOTO 80 


LOCATE HO,V:PRINT N$+N$; 
LOCATE HO,V+1:PRINT N$; 


V=PY 
HO=FPH 


LOCATE HO,V:PRINT P3;z 
LOCATE HO,V+1:FPRINT 0%; 
FOR I=1 TO 60:NEXT 1 


GOTO 80 


IF ABS((HO-.5)-PA)>1 THEN GOTO 420 


FOR I=1 TO 500 
NEXT I 

S=5+1 

GOSUB 510 

GOTo eo 

cLSs 


LOCATE 10,10:PRINT 


"PUNTUACION 


LOCATE 10,14:PRINT "OTRA 2" 


D+=INKEY+ 
IF Ds: 


* THEN GOTO 450 


1F DF "N” AND D+<>"n" THEN RUN 


cLs 

LOCATE 0,0, 1 
END 

SCREEN 0,0 
COLOR 15,5 
RESTORE 

FOR 1=0 TO 79 
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235; 


Paracaídas 


550 
5360 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
£80 
6790 
700 
710 
720 
730 
740 
730 
760 
770 
780 
770 
3800 
810 
320 
830 
s40 
350 


READ A 
VPOKE 3072+1,4%4 

NEXT 1 

Né=CHR$ (32) 

M$=N$+N$+NF 

H$=CHR$ (128) +CHR$ (129) +CHR$ (130) +N$ 
C$=CHR$ (131) +CHR$ (132) 
P$=CHR$ (133) +CHR$ (134) +N$ 
O$=CHR$ (135) +CHR$ (136) 
AF=CHRS (137) +CHR* (137) 

H=3 

PA=INT(RND(1)28)+1 

LOCATE PA,24,0:PRINT As; 
sP=0 

DP=0 

PH=0 

Pv=0 

EEs3 

v=0 

HO=0 

RETURN 

DATA 63,1,15,31,31,63,6%,31 
DATA 62,0,32,56,63,63,60,48 
DATA 0,0,3,3,63,62,0,0 

DST 22 E 1 LI 

DATA Z oa Es 8,40,32 
DATA 7,31,31,63 32,32,16 
DATA 48,60,650,62 6221244 
DATA 19,11,9,15,3,5,272 
DATA 76,40,8,56,32,32,32,32 
DATA 63,673,63,0,0,0,0,0 
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1. 


Recogedor 


2. Tanque 


PU arpa 


|. Alfabeto 


Serpiente 


|. Robots 


Perse- 
cución 


|. Slalom 
. Defensa 


antiaérea 


.. Squash 
). Música 

. Gran Prix 
. Cacería de 


patos 


, Cangrejos 
. Para- 


caídas 


.. La pared 
. Aterrizaje 
. Bombardeo 


aéreo 


. Trazos 


